home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / EARTHQUEST™ TOUR Demo / EARTHQUEST™ tour / EARTHQUEST™ tour / background_29806.txt < prev    next >
Text File  |  1990-08-03  |  6KB  |  290 lines

  1. -- background: 29806 from stack: in
  2. -- bmap block id: 6889
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 81
  10. -- high flags: 0004
  11. -- rect: left=12 top=18 right=165 bottom=316
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 20
  16. -- text size: 24
  17. -- style flags: 0
  18. -- line height: 32
  19. -- part name: •Question
  20.  
  21.  
  22. -- part 3 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=149 top=322 right=340 bottom=217
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: movies
  34. ----- HyperTalk script -----
  35. MOVIES MOVIES MOVIES
  36. on mousedown
  37.  
  38.  
  39.   get TKpopMenu ("movies",151,129)
  40.  
  41.   if it = "" then
  42.  
  43.     exit mousedown
  44.   end if
  45.   put item 1 of it into theMenu
  46.   put item 2 of it into theItem
  47.  
  48.  
  49.   put word 1 of theItem into showtime
  50.   -- Note:  this will process each menu item (even hierarchical)
  51.   tkshowpict "present",150,10
  52.   do showtime
  53. end mousedown
  54.  
  55.  
  56.  
  57. -- part 4 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=77 top=322 right=340 bottom=145
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: info
  69. ----- HyperTalk script -----
  70.  
  71. on mousedown
  72.  
  73.  
  74.   --adding table name to popup list
  75.  
  76.   put  the short name of this card&&"menu"  into zaper
  77.   put TKdoTEXT (zaper) after selections
  78.   put 328-(17*(the number of lines in selections))into vvv
  79.   get TKpopMenu (selections,78,vvv,"true")
  80.   put item 1 of it into theMenu
  81.   put item 2 of it into theItem
  82.   if it = "" then
  83.     exit mousedown
  84.   end if
  85.  
  86.   put item 1 of it into theMenu
  87.   put item 2 of it into theItem
  88.   tkhelp (the short name of this card), "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high274", "Menu","","","","",theItem
  89. end mousedown
  90.  
  91.  
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=5 top=322 right=340 bottom=73
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Index
  106. ----- HyperTalk script -----
  107. INDEXtest
  108. on mousedown
  109.  
  110.  
  111.   global indexo
  112.  
  113.   Get TKpopMenu ("index",6,43,)
  114.  
  115.   if it = "" then
  116.  
  117.     exit mousedown
  118.   end if
  119.  
  120.   put item 1 of it into theMenu
  121.   put item 2 of it into theItem
  122.  
  123.   get tkdotext ("earth")
  124.   if it contains theItem then
  125.     go to card theITem of stack "earth"
  126.   end if
  127.   get tkdotext ("Journey")
  128.   if it contains theItem then
  129.     go to card theITem of stack "Journey"
  130.   end if
  131.   get tkdotext ("People")
  132.   if it contains theItem then
  133.     go to card theITem of stack "people"
  134.   end if
  135.  
  136. end mousedown
  137.  
  138.  
  139.  
  140. -- part 6 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=221 top=322 right=340 bottom=289
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: quotes
  152. ----- HyperTalk script -----
  153. QUOTES QUOTES QUOTES
  154. on mousedown
  155.   get TKpopMenu ("QUOTATIONS MENU",222,1,)
  156.   if it = "" then
  157.  
  158.     exit mousedown
  159.   end if
  160.   put item 1 of it into theMenu
  161.   put item 2 of it into theItem
  162.   tkhelp "QUOTATIONS", "mnu,txt,scl,pic,open,opt,left14,top32,wide230,high230", "Menu","","","","",theItem
  163.  
  164. end mousedown
  165.  
  166.  
  167. -- part 7 (button)
  168. -- low flags: 00
  169. -- high flags: 0000
  170. -- rect: left=293 top=322 right=340 bottom=362
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: sounds
  179. ----- HyperTalk script -----
  180. SOUNDS SOUNDS SOUNDS
  181. on mouseDown
  182.  
  183.   Get TKpopMenu("Sounds",295,97,true,busy)
  184.   if it = "" then exit mouseDown
  185.   put item 1 of it into theMenu
  186.   put item 2 of it into theItem
  187.  
  188.   play theitem
  189.   wait until the sound is "done"
  190.   wait 15
  191.  
  192. end mouseDown
  193.  
  194.  
  195.  
  196. -- part 8 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=366 top=322 right=340 bottom=434
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: options
  208. ----- HyperTalk script -----
  209.  
  210. on mousedown
  211.   global theitem
  212.   get TKpopMenu (options,367,210)
  213.   if it = "" then
  214.     exit mousedown
  215.   end if
  216.   put item 1 of it into theMenu
  217.   put item 2 of it into theItem
  218.  
  219.   global wherefrom -- a global anchor for workshop nav
  220.   put the long name of this card into wherefrom
  221.   if theItem = "Copy art to Workshop" then
  222.     set userlevel to 3
  223.     choose select tool
  224.     doMenu "Select all"
  225.  
  226.     doMenu "copy picture"
  227.     go to last card of stack workshop
  228.     doMenu "new card"
  229.     doMenu "paste picture"
  230.     choose browse tool
  231.     opencard
  232.   end if
  233.   if theItem = "Mystery Tour" then
  234.     push card
  235.     go to stack "Mystery Tour"
  236.     set userlevel to 2
  237.   end if
  238.  
  239.   if theItem = "Copy card to Workshop" then
  240.     set userlevel to 3
  241.     push card
  242.     Workshop
  243.   end if
  244.  
  245.   if theItem = "Help" then
  246.     push card
  247.     visual zoom out
  248.     go to card id 80705 of stack earth
  249.   end if
  250.  
  251.   if theItem = "Quit" then
  252.     DoMenu "Quit Hypercard"
  253.   end if
  254.  
  255.   if theItem = "Print Card" then
  256.     DoMenu "Print Card"
  257.   end if
  258.   if theItem = "Go to Workshop" then
  259.  
  260.     push card
  261.     Go to stack "Workshop"
  262.     set the userlevel to 3
  263.   end if
  264.  
  265.  
  266. end mousedown
  267.  
  268.  
  269.  
  270. -- part 9 (button)
  271. -- low flags: 00
  272. -- high flags: 0000
  273. -- rect: left=439 top=322 right=340 bottom=507
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: labels
  282. ----- HyperTalk script -----
  283. LABELS LABELS LABELS
  284. on mousedown
  285.  
  286.   labels
  287.  
  288. end mousedown
  289.  
  290.